'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Usertimer(Source As Form)
Declare Sub Switchto(Source As Form, View As VIEW)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As FORM
	Set Source = Bind(Objectname_)
	On Event Usertimer From Source Call Usertimer
	On Event Switchto From Source Call Switchto
End Sub

'++LotusScript Development Environment:2:2:Usertimer:1:12
Sub Usertimer(Source As Form)
	Messagebox "Form timer has hit."
	s="c:\iw\iw.exe http://" & source.url.text
	Print s
	i=Shell(s)
	source.timerinterval=0
End Sub
'++LotusScript Development Environment:2:2:Switchto:1:12
Sub Switchto(Source As Form, View As VIEW)
	If (iMoreInfo = False) Then
		CurrentApplication.ApplicationWindow.DoMenuCommand(IDM_FIND)
	Else
		iMoreInfo = False   'Reset back to false.
	End If
End Sub